COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4
C00007 00003	\font @=cmathx \font a=cmr10 \font b=cmr9 \font c=cmr8
C00011 00004	\def\tpage{F} \def\rhead{} \def\chead{}	% "global variables"
C00014 00005	\def\TEX{T\hbox{\hskip-.1667em\lower.424ex\hbox{E}\hskip-.125em X}}
C00022 ENDMK
C⊗;
\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4
\chcode'45←5 \chcode'43←6 \chcode'136←7 \chcode 1←8
% This file is used for experiments on the new TEX manual format
\chcode'27=13 \def↔{\penalty999\ }
\def\%{\char'45 }	% Note, the space after 45 is needed! (e.g.\%0)

\def\lft#1{#1\hfill}
\def\ctr#1{\hfill#1\hfill}
\def\rt#1{\hfill#1}

\def\rjustline#1{\hbox to size{\hfill#1}}
\def\ctrline#1{\hbox to size{\hfill#1\hfill}}

\def\trace{\chpar0←}
\def\jpar{\chpar1←}
\def\ragged{\chpar8←}

\def\≠{\spose/=}
\def\≡{\chcode'173←12 \chcode'176←13 \chcode'44←12 \chcode'26←12
\chcode'45←12 \chcode'43←12 \chcode'136←12 \chcode1←12 \chcode'134←12
\chcode'36←0 \tt
\def\`{{\char'15}}\def\'{{\char'16}}\def\↓{{\char'176}}\def\}{{\char'175}}
	\def\≤{\spose~<}\def\≥{\spose~>}\def\∞{∃}}
\def\\{\chcode'176←2 }

\def\log{\mathop{\char l\char o\char g}\limitswitch}
\def\lim{\mathop{\char l\char i\char m}}
\def\sin{\mathop{\char s\char i\char n}\limitswitch}
\def\cos{\mathop{\char c\char o\char s}\limitswitch}
\def\max{\mathop{\char m\char a\char x}}
\def\min{\mathop{\char m\char i\char n}}
\def\exp{\mathop{\char e\char x\char p}\limitswitch}
\def\choose{\comb()}
\def\leftset{\mathopen{\{\,}}
\def\rightset{\mathclose{\,\}}}
\def\gcd{\mathop{\char g\char c\char d}}
\def\modop{\<\,\mathbin{\char m\char o\char p}\<\,}
\def\mod#1{\penalty0\;(\char m\char o\char d\,\,#1)}
\def\eqv{\mathrel\char'421 }
\def\neqv{\mathrel{\not\eqv}}

\def\ldots{{.\≥.\≥.}}
\def\cdots{{\char'401\≥\char'401\≥\char'401}}
\def\ldotss{{.\≥.\≥.\≥}}
\def\cdotss{\cdots\≥}
\def\vdots{\vbox{\baselineskip 4pt\vskip 6pt\hbox{.}\hbox{.}\hbox{.}}}
\def\ldotsm{{\≥.\≥.\≥.\≥}}

\def\eqalign#1{\vcenter{\halign{\hfill$\dispstyle{##}$⊗$\dispstyle{\null##}$\hfill
\cr#1}}}
\def\eqalignno#1{\vbox{\tabskip 0pt plus 1000pt minus 1000pt
   \halign to size{\hfill$\dispstyle{##}$\tabskip 0pt
   ⊗$\dispstyle{\null##}$\hfill\tabskip 0 pt plus 1000pt minus 1000pt
   ⊗\hfill$ ##$\tabskip 0pt\cr#1}}}
\def\cpile#1{\vcenter{\halign{\hfill$## $\hfill\cr#1}}}
\def\lpile#1{\vcenter{\halign{$## $\hfill\cr#1}}}
\def\rpile#1{\vcenter{\halign{\hfill$## $\cr#1}}}
\def\null{\hbox{}}
\def\twoline#1#2#3{\halign{\hbox to size{##}\cr\quad$\dispstyle{#1}$\hfill\cr
\noalign{\penalty 1000\vskip#2}\hfill$\dispstyle{#3}$\quad\cr}}

\def\chop to#1pt#2{\hbox{\lower#1pt\null\vbox{\hbox{\lower100pt\hbox{\raise100pt
\hbox{$\dispstyle{#2}$}}}\vskip-100pt}}} % pretends that #2 is #1 deep
\def\spose#1{\hbox to 0pt{#1\hss}}
\font @=cmathx \font a=cmr10 \font b=cmr9 \font c=cmr8
\font d=cmr7   \font e=cmr6  \font f=cmr5 \font g=cmi10
\font h=cmi9   \font i=cmi8  \font j=cmi7 \font k=cmi6
\font l=cmi5   \font m=cmsc10 \font n=cms10 \font o=cms9
\font p=cms8  \font q=cmb10 \font r=cmb9 \font s=cmtt8
\font t=cmtt   \font u=cmsy10 \font v=cmsy9 \font w=cmsy8
\font x=cmsy7  \font y=cmsy6 \font z=cmsy5 \font ;=cmtitl
\font <=cmssb  \font ==cmu10 \font >=cmtt9 \font ?=cmti10
\font A=cmsss8 \font B=cmss8
\font C=pminch[mf,sys]
\font D=pmbig[mf,sys]
\font E=cmb8

\hsize 29pc  \vsize 44pc  \maxdepth 2pt  \parindent 3pc
\parskip 0pt plus 1 pt  \lineskip 1pt
\topskip 24pt plus 6pt minus 10pt  \botskip 15pt plus 3pt minus 9pt
\dispskip 6pt plus 3pt minus 1pt
\dispaskip 0pt plus 3pt \dispbskip 4pt plus 3pt
\def\tenpoint{\baselineskip 12pt
	\def\rm{\:a} \def\sl{\:n} \def\bf{\:q} \def\it{\:?} \def\tt{\:t}
	\def\biglp{\mathopen{\vcenter{\hbox{\:@\char'0}}}}
	\def\bigrp{\mathclose{\vcenter{\hbox{\:@\char'1}}}}
	\mathrm adf \mathit gjl \mathsy uxz \rm}
\def\ninepoint{\baselineskip 11pt
	\def\rm{\:b} \def\sl{\:o} \def\bf{\:r} \def\it{\:h} \def\tt{\:>}
	\def\biglp{\mathopen{\hbox{\:a(}}}
	\def\bigrp{\mathclose{\hbox{\:a)}}}
	\mathrm bef \mathit hkl \mathsy vyz \rm}
\def\eightpoint{\baselineskip 9pt
	\def\rm{\:c} \def\sl{\:p} \def\bf{\error} \def\it{\:i} \def\tt{\:s}
	\def\biglp{\mathopen{\hbox{\:a(}}}
	\def\bigrp{\mathclose{\hbox{\:a)}}}
	\mathrm cef \mathit ikl \mathsy wyz \rm}
\mathex @
\def\bigglp{\mathopen{\vcenter{\hbox{\:@\char'22}}}}
\def\biggrp{\mathclose{\vcenter{\hbox{\:@\char'23}}}}
\def\biggglp{\mathopen{\vcenter{\hbox{\:@\char'40}}}}
\def\bigggrp{\mathclose{\vcenter{\hbox{\:@\char'41}}}}

\def\qquad{\quad\quad}
\def\9{\hskip .5em}
\def\xskip{\hskip 7pt plus 3pt minus 4pt}
\def\yskip{\penalty-50\vskip 3pt plus 3pt minus 1pt}
\def\yyskip{\penalty-100\vskip 6pt plus 6pt minus 2pt}
\def\sectionskip{\penalty-200\vskip 24pt plus 12pt minus 6pt}

\def\textindent#1{\noindent\hbox to 3pc{\hss#1\9}\!}
\def\hang{\hangindent 3pc}
\def\display#1${\hbox to 23pc{$\dispstyle{#1}$\hss}$}
\def\displaybox{\hbox to 23pc}
\def\tpage{F} \def\rhead{} \def\chead{}	% "global variables"
\def\strut{\vbox to 10pt{}}
\output{\baselineskip 0pt\lineskip0pt	% beginning of output routine, resets skips
	\if T\tpage		% the next is used when tpage is "T" (title pages)
		{\gdef\tpage{F} % reset tpage
		\vbox to 3pc{\hrule width 1pc
			\hrule width .5pt height 1pc
			\vfill}		% corner bracket in place of headlines
		\page
		\vbox to 0pt{\vss
			\hbox to size{\vrule height 1pc\hfil\vrule height 1pc}
			\hbox to size{\vrule height .5pt width 1pc\hfil
				\vrule height .5pt width 1pc}}}
	\else{\vbox to 3pc{\hbox to size{\strut
			\ifeven0{\hbox to 0pt{\hss\:q\count0\hskip1pc}\chead\hfil}
			\else{\hfil\rhead\hbox to 0pt{\hskip1pc\:q\count0\hss}}}
		\vfill}\page}
	\advcount0}	% increase the page number and end the output routine

\def\endingquote#1\author#2(#3){\ifeven0{\vfill\eject\null}\else{} % go to rh page
	\vfill\vbox{\let\\=\cr\halign{\hbox to size{\:A\hfil##}\\#1\unskip\\
			\noalign{\vskip3pt}
			\:B--- #2\unskip\9(#3)\\}}\eject}

\def\chapterbegin#1. #2\par{\null\vskip-10pt\vskip-3pc
	\vbox to 1in{\vfill\hbox to size{\hfil\:C#1}}
	\vskip .5in
	{\baselineskip 36pt\let\\=\cr
	\halign{\hbox to size{\:D\hfil##}\\#2\unskip\\}}
	\gdef\rhead{\let\\=\ \:?#2}
	\gdef\chead{\:?Chapter #1}
	\gdef\tpage{T}\vfill\eject
	\noindent\!}
\def\TEX{T\hbox{\hskip-.1667em\lower.424ex\hbox{E}\hskip-.125em X}}
\def\blankfig{T}  % F if figures have silly copy in them, T if they're blank space.
\def\figure#1#2{$$\vbox to #1{\if T\blankfig{}\else{\hrule\vfill
\hbox{\:f#2}\vfill\hrule}}$$}

\def\danger{\yyskip\noindent\hang for 2
\hbox to 0pt{\hskip-3pc\:@\char'177\hfill}\ninepoint}
\def\enddanger{\par\yyskip\tenpoint}


\def\footnote#1#2{#1\botinsert{\hrule
	\vskip 4pt \baselineskip 9pt\hbox par size{\eightpoint
		\hbox to 3pc{\hfil#1\9}\!#2}}}

\def\exno #1:{\yyskip
	\noindent\hbox to 0pt{\hss\:@\char'170\hskip.15em}{\:r EXERCISE \bf#1}\par
	\noindent\!}

\def\dexno #1: {\hbox to 0pt{\hss\:@\char'170\hskip.15em}{\:E EXERCISE \bf#1}\hfil
	\linebreak}

\def\subsec#1. #2. {\yyskip\noindent{\it #1.\9#2.\xskip}}

\def\bull{\vrule height .8ex width .8ex}